home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs30.d81
/
automenu.lbr
/
SWITCHER64.prg
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
1KB
|
51 lines
10 A=PEEK(186):@#A:PRINTCHR$(31)
20 PRINT"[147]@"CHR$(34)"S-8"CHR$(34):PRINT:PRINT
30 PRINT"GOTO50"
40 POKE 198,3:POKE631,19:POKE632,13:POKE633,13:END
50 @#8:IFVAL(TI$)-235000>0 THEN TI$="000000"
55 DIM A$(50),B$(50),P$(50),N$(50),S$(50)
60 OPEN2,8,8,"-MENU128,S,R":INPUT#2,A
70 FORU=1TOA+1:INPUT#2,A$(U),B$(U),P$(U),N$(U),S$(U)
80 IF A$(U)="_!" THEN A$(U)=""
90 IF B$(U)="_!" THEN B$(U)=""
100 IF P$(U)="_!" THEN P$(U)=""
110 IF N$(U)="_!" THEN N$(U)=""
120 IF S$(U)="_!" THEN S$(U)=""
130 NEXTU:CLOSE2
140 IF A$(A+1)=""THEN 160
150 Z=A+1:A$(Z)="":GOTO300
160 REM **** MENU PROGRAM WILL GO HERE ****
170 REM
180 REM
190 REM
200 REM PRINT"[147]/"CHR$(34)"MENU64"CHR$(34):PRINT:PRINT
210 REM PRINT"GOTO10"
220 REM POKE 198,3:POKE631,19:POKE632,13:POKE633,13:END
230 REM
240 REM
250 REM
260 REM
270 REM
280 REM
290 GOTO9000
300 GOSUB370
310 OPEN15,8,15:PRINT#15,"CP";B$(Z):V=TI
320 IF TI-V<20THEN320
330 PRINT#15,"CD:";P$(Z)
340 CLOSE15:V=TI
350 IF TI-V<20THEN350
360 PRINT"[147]/";(N$(Z));"":PRINT"RUN":POKE198,3:POKE631,19:POKE632,13:POKE633,13:END
370 OPEN2,8,8,"@:-MENU128,S,W":PRINT#2,A
380 FORU=1TOA+1
390 IF A$(U)="" THEN A$(U)="_!"
400 IF B$(U)="" THEN B$(U)="_!"
410 IF P$(U)="" THEN P$(U)="_!"
420 IF N$(U)="" THEN N$(U)="_!"
430 IF S$(U)="" THEN S$(U)="_!"
440 PRINT#2,A$(U):PRINT#2,B$(U):PRINT#2,P$(U):PRINT#2,N$(U)
450 PRINT#2,S$(U):NEXTU:CLOSE2:RETURN
1000 GOTO 200
9000 PRINT"[147][154] JIFFYDOS V6.01 (C)1989 CMD
9010 [153]" C-64 BASIC V2 38911 BASIC BYTES FREE
9020 END